unit GameDialogs;

interface

uses Math, SysUtils, classes, extctrls;

Type
TDialog = class(TObject)
private
  FScript:string;
  FMessage:string;
public
  Dialogs:array[1..5] of TDialog;
  Conditions:array[1..5] of string;
  Phrases:array[1..5] of string;
  property Script:string read FScript write FScript;
  property Msg:string read FMessage write FMessage;
end;

function DialogCondition(s:string):boolean;

implementation

function DialogCondition(s:string):boolean;
begin

end;

end.
 
